home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / upgrade2.zip / SECINCR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-12-02  |  3KB  |  245 lines
  1.     Function FUNCTION000
  2.  
  3. ;------------------------------------------------------------------------------
  4. ;                                                   .ss.
  5. ;                                                   `²²'
  6. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  7. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  8. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  9. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  10. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  11. ;                                    .sS²°$$$²²°"'       d²°'
  12. ;                                  .$$²  .$$'
  13. ;                                  $$$.,d$$'
  14. ;                                  `²S$$S²'
  15. ;------------------------------------------------------------------------------
  16. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  17. ;------------------------------------------------------------------------------
  18. ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
  19. ;------------------------------------------------------------------------------
  20.  
  21.     Boolean  BOOLEAN001
  22.     Boolean  BOOLEAN002
  23.     Boolean  BOOLEAN003
  24.     Date     DATE001
  25.     Integer  INTEGER002
  26.     Integer  INTEGER003
  27.     Integer  INTEGER004
  28.     Integer  INTEGER005
  29.     Integer  INTEGER006
  30.     Integer  INTEGER007
  31.     String   STRING002
  32.     String   STRING003
  33.     String   STRING004
  34.     String   STRING005
  35.     String   STRING006
  36.     String   STRING007
  37.     String   STRING008
  38.     String   STRING009
  39.     String   STRING010
  40.     String   STRING011
  41.     String   STRING012
  42.     String   STRING013
  43.     String   STRING014
  44.     String   STRING015
  45.     String   STRING016
  46.     String   STRING017
  47.     String   STRING018
  48.     String   STRING019
  49.     Declare  Function FUNCTION001(String STRING001) String
  50.     Declare  Function FUNCTION002(Integer INTEGER001) String
  51.  
  52. ;------------------------------------------------------------------------------
  53.  
  54.     Goto LABEL004
  55.     End
  56.  
  57. ;------------------------------------------------------------------------------
  58.  
  59.     Function FUNCTION001(String STRING001) String
  60.  
  61.     Function FUNCTION002
  62.  
  63.     STRING001 = ReplaceStr(STRING001, "#NAME#", U_Name())
  64.     STRING001 = ReplaceStr(STRING001, "#CITY#", U_City)
  65.     FUNCTION001 = STRING001
  66.  
  67.     EndFunc
  68.  
  69.  
  70. ;------------------------------------------------------------------------------
  71.  
  72.     Function FUNCTION002(Integer INTEGER001) String
  73.  
  74.     Boolean  BOOLEAN001
  75.     String   STRING004
  76.  
  77.     BOOLEAN001 = 0
  78.     STRING004 = ""
  79.     :LABEL001
  80.     If (BOOLEAN001) Goto LABEL003
  81.     FGet INTEGER001, STRING004
  82.     If (Ferr(INTEGER001)) Then
  83.         BOOLEAN001 = 1
  84.     Else
  85.         If ((Trim(STRING004, " ") == "") || (Left(STRING004, 1) == ";")) Goto LABEL002
  86.         Goto LABEL003
  87.         :LABEL002
  88.         Goto LABEL001
  89.     Endif
  90.     :LABEL003
  91.     If (BOOLEAN001 == 1) STRING004 = ""
  92.     FUNCTION002 = STRING004
  93.  
  94.     EndFunc
  95.  
  96.     INTEGER003 = 400
  97.     STRING006 = ""
  98.     STRING007 = ReadLine(PCBDat(), 29)
  99.     INTEGER002 = FNext()
  100.     FOpen INTEGER002, STRING007, 2, 0
  101.     FSeek INTEGER002, INTEGER003 * 0, 0
  102.     FRead INTEGER002, STRING006, 25
  103.     FClose INTEGER002
  104.     STRING005 = Trim(STRING006, " ")
  105.  
  106.     EndFunc
  107.  
  108.     :LABEL004
  109.     For INTEGER004 = 1 To 10
  110.         ConfFlag INTEGER004, 16
  111.     Next
  112.     INTEGER007 = CurConf()
  113.     STRING013 = ""
  114.     STRING015 = ""
  115.     STRING018 = "R"
  116.     DATE001 = Date() + 3
  117.     BOOLEAN002 = 0
  118.     BOOLEAN003 = 0
  119.     STRING019 = PPEPath() + PPEName() + ".MSG"
  120.     If (Exist(PPEPath() + PPEName() + ".DAT")) Then
  121.         INTEGER005 = FNext()
  122.         FOpen INTEGER005, PPEPath() + PPEName() + ".DAT", 0, 2
  123.         STRING008 = FUNCTION002(INTEGER005)
  124.         STRING009 = PPEPath() + FUNCTION002(INTEGER005)
  125.         STRING011 = FUNCTION002(INTEGER005)
  126.         FClose INTEGER005
  127.         STRING016 = ReadLine(PPEPath() + PPEName() + ".DAT", 1)
  128.         STRING017 = ReadLine(PPEPath() + PPEName() + ".DAT", 6)
  129.         STRING014 = ReadLine(PPEPath() + PPEName() + ".DAT", 1)
  130.         Log "GENERIC MESSAGES SENT ", 1
  131.     Else
  132.         SPrintLn PPEName() + ".DAT not found.ERROR"
  133.         Log 0, PPEName() + ".DAT not found ERROR"
  134.         Stop
  135.     Endif
  136.     FCloseAll
  137.     STRING010 = TempPath() + "TEMPXXX.MSG"
  138.     GetUser
  139.     STRING008 = U_Name()
  140.     INTEGER005 = FNext()
  141.     FOpen INTEGER005, STRING009, 0, 2
  142.     INTEGER006 = FNext()
  143.     FCreate INTEGER006, STRING010, 1, 3
  144.     FGet INTEGER005, STRING012
  145.     :LABEL005
  146.     If (Ferr(INTEGER005)) Goto LABEL006
  147.     If (InStr(STRING012, "#")) STRING012 = FUNCTION001(STRING012)
  148.     FPutLn INTEGER006, STRING012
  149.     FGet INTEGER005, STRING012
  150.     Goto LABEL005
  151.     :LABEL006
  152.     FClose INTEGER005
  153.     FPutLn INTEGER006, ""
  154.     FPutLn INTEGER006, "---"
  155.     FPutLn INTEGER006, "This program curtesy of KASA ENTERTAINMENT-PRESENTS"
  156.     FClose INTEGER006
  157.     Message INTEGER007, STRING013, STRING016, STRING017, STRING018, DATE001, BOOLEAN002, BOOLEAN003, STRING019
  158.     Message INTEGER007, STRING014, STRING015, STRING017, STRING018, DATE001, BOOLEAN002, BOOLEAN003, STRING010
  159.     Delete STRING010
  160.     End
  161.  
  162. ;------------------------------------------------------------------------------
  163. ;
  164. ; Usage report (before postprocessing)
  165. ;
  166. ; ■ Statements used :
  167. ;
  168. ;    2       End
  169. ;    13      Goto 
  170. ;    35      Let 
  171. ;    8       If 
  172. ;    1       ConfFlag 
  173. ;    1       FCreate 
  174. ;    3       FOpen 
  175. ;    4       FClose 
  176. ;    3       FGet 
  177. ;    4       FPutLn 
  178. ;    1       GetUser
  179. ;    1       Delete 
  180. ;    2       Log 
  181. ;    1       Stop
  182. ;    2       Message 
  183. ;    1       SPrintLn 
  184. ;    1       FSeek 
  185. ;    1       FRead 
  186. ;    1       FCloseAll
  187. ;    3       EndFunc
  188. ;
  189. ;
  190. ; ■ Functions used :
  191. ;
  192. ;    1       *
  193. ;    18      +
  194. ;    3       ==
  195. ;    1       <
  196. ;    1       <=
  197. ;    2       >=
  198. ;    5       !
  199. ;    2       &&
  200. ;    2       ||
  201. ;    1       Left()
  202. ;    2       Ferr()
  203. ;    1       InStr()
  204. ;    2       Trim()
  205. ;    1       Date()
  206. ;    2       U_Name()
  207. ;    1       CurConf()
  208. ;    1       PCBDat()
  209. ;    7       PPEPath()
  210. ;    4       ReadLine()
  211. ;    1       Exist()
  212. ;    8       PPEName()
  213. ;    1       TempPath()
  214. ;    2       ReplaceStr()
  215. ;    4       FNext()
  216. ;
  217. ;------------------------------------------------------------------------------
  218. ;
  219. ; Analysis flags : Fd
  220. ;
  221. ; F - Change conference flags status ■ 2
  222. ;     This may be normal for a SELECT replacement but it may also be
  223. ;     a way to get access to conferences a user is not allowed to.
  224. ;     ■ Search for : CONFFLAG, CONFUNFLAG
  225. ;
  226. ; d - Access PCBOARD.DAT ■ 2
  227. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  228. ;     for many PPE so they can find various informations on the system
  229. ;     (system paths, max number of lines in messages, ...) but it may also
  230. ;     be a way to gather vital informations.
  231. ;     ■ Search for : PCBDAT()
  232. ;
  233. ;------------------------------------------------------------------------------
  234. ;
  235. ; Postprocessing report
  236. ;
  237. ;    1       For/Next
  238. ;    0       While/EndWhile
  239. ;    2       If/Then or If/Then/Else
  240. ;    0       Select Case
  241. ;
  242. ;------------------------------------------------------------------------------
  243. ;                 AEGiS Corp - Break the routines, code against the machines!
  244. ;------------------------------------------------------------------------------
  245.